Imports ccapps.batchJobs
Imports System.Threading
Imports System.Timers.ElapsedEventArgs


Namespace batchjobs


    Public Class sms_tariff
        Public errstr As String = ""
        Public sqlStr As String
        Public listener As String
        Public i, k As Integer
        Dim Timer1 As New System.Timers.Timer
        Dim Timer2 As New System.Timers.Timer
        Dim t1 As Thread
        Dim t2 As Thread
        Dim t3 As Thread
        Sub start()

            'objIniFile = New System.IO.File.IniFile("C:\setup.ini")


            'Dim Timer1 As New System.Timers.Timer
            'AddHandler Timer1.Elapsed, AddressOf Timer1_Elapsed
            'Timer1.Interval = 30000
            'Timer1.Enabled = True

            'AddHandler Timer2.Elapsed, AddressOf Timer2_Elapsed
            'Timer2.Interval = 1000
            'Timer2.Enabled = False
            'Tariff_Update1()

            Dim sw As System.IO.StreamWriter

            sw = System.IO.File.AppendText("c:\asp_job_log\oo1.txt")
            sw.WriteLine("**")
            sw.Flush()
            sw.Close()

            t1 = New Thread(AddressOf Tariff_Update1)
            t1.IsBackground = True
            t1.Priority = System.Threading.ThreadPriority.Highest
            t1.Start()

            't2 = New Thread(AddressOf Tariff_Update2)
            't2.IsBackground = True
            't2.Priority = System.Threading.ThreadPriority.Highest
            't2.Start()

            't3 = New Thread(AddressOf Tariff_Update3)
            't3.IsBackground = True
            't3.Priority = System.Threading.ThreadPriority.Highest
            't3.Start()


            

            't3 = New Thread(AddressOf Tariff_Update3)
            't3.IsBackground = True
            't3.Start()

        End Sub

        Private Sub Tariff_Update1()
            Dim job As New ccapps.batchjobs.sms_update
            job.Tariff_Update1()
        End Sub
        Private Sub Tariff_Update2()
            Dim job As New ccapps.batchjobs.sms_update1
            job.Tariff_Update2()
        End Sub
        Private Sub Tariff_Update3()
            Dim job As New ccapps.batchjobs.sms_update2
            job.Tariff_Update2()
        End Sub


    End Class
End Namespace